﻿Imports Microsoft.Reporting.WebForms
Public Class ReporteCantDetalle
    Inherits System.Web.UI.Page

    Private Sub ReporteCantDetalle_Init(sender As Object, e As EventArgs) Handles Me.Init
        Me.ReportViewer1.LocalReport.ReportPath = ("reportes\ReporteCantDetalle.rdlc")
        Me.ReportViewer1.LocalReport.DataSources.Clear()

        Dim adapter As New DataSetTableAdapters.usp_consulta_cant_detalle_pcTableAdapter
        Dim table As New DataSet.usp_consulta_cant_detalle_pcDataTable
        adapter.Fill(table)
        Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", CType(table, DataTable)))
        Me.ReportViewer1.DataBind()
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

End Class